Celestin Apprentice 2/Apprentice-Release2.iso/Tools/Languages/GWAda 1.5.1/GW-Ada⁄Ed-MacProgs/Spider/DRAW11.ADA

Text File | 1994-01-10 | 328 b | 30 lines | [TEXT/Anon]

WITH Spider; USE Spider;  WITH Left;
PROCEDURE Drawing11 IS

PROCEDURE Walk IS
BEGIN
WHILE NOT AtWall LOOP
     Step;
END LOOP;
END Walk;

PROCEDURE Diagonal IS
BEGIN
WHILE NOT AtWall LOOP
     Step; Turn;
     Step; Left;
END LOOP;
END Diagonal;

BEGIN
Start;
Turn;
Walk;
Left;
Walk;
Left;
Left;
Diagonal;
Quit;
END Drawing11;